/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Util / D / DSKA 1.4.sit / DSKA 1.4 Folder / hostspec.asm

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 68 6f 73 74 73 70 | 65 63 2e 61 73 6d 00 00 |..hostsp|ec.asm..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 74 74 78 | 74 00 00 00 00 00 00 00 |.TEXTttx|t.......|
|00000050| 00 00 00 00 00 26 42 00 | 00 01 4c aa 7a 6b f2 aa |.....&B.|..L.zk..|
|00000060| 7a 6b f2 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |zk......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b7 c9 00 00 |........|........|
|00000080| 0d 3b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.;------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 3b 0d 3b |--------|-----;.;|
|000000c0| 20 48 4f 53 54 53 50 45 | 43 2e 41 53 4d 09 09 09 | HOSTSPE|C.ASM...|
|000000d0| 09 09 09 20 20 20 20 3b | 0d 3b 20 57 72 69 74 74 |...    ;|.; Writt|
|000000e0| 65 6e 20 42 79 3a 20 4b | 65 69 74 68 20 4c 61 72 |en By: K|eith Lar|
|000000f0| 73 6f 6e 09 09 09 09 20 | 20 20 20 3b 0d 3b 09 20 |son.... |   ;.;. |
|00000100| 20 20 20 20 20 54 4d 53 | 33 32 30 43 78 78 20 44 |     TMS|320Cxx D|
|00000110| 53 50 20 41 70 70 6c 69 | 63 61 74 69 6f 6e 73 20 |SP Appli|cations |
|00000120| 45 6e 67 69 6e 65 65 72 | 09 20 20 20 20 3b 0d 3b |Engineer|.    ;.;|
|00000130| 09 20 20 20 20 20 20 54 | 65 78 61 73 20 49 6e 73 |.      T|exas Ins|
|00000140| 74 72 75 6d 65 6e 74 73 | 20 09 09 09 20 20 20 20 |truments| ...    |
|00000150| 3b 0d 3b 09 09 09 09 09 | 09 09 20 20 20 20 3b 0d |;.;.....|..    ;.|
|00000160| 3b 20 55 53 45 20 57 49 | 54 48 20 54 48 45 20 44 |; USE WI|TH THE D|
|00000170| 53 4b 4c 20 5b 47 5d 52 | 41 50 48 20 4f 50 54 49 |SKL [G]R|APH OPTI|
|00000180| 4f 4e 2e 20 20 54 48 49 | 53 20 4f 50 54 49 4f 4e |ON.  THI|S OPTION|
|00000190| 20 49 53 20 44 45 53 49 | 47 4e 45 44 3b 0d 3b 20 | IS DESI|GNED;.; |
|000001a0| 54 4f 20 52 45 43 45 49 | 56 45 20 41 20 42 59 54 |TO RECEI|VE A BYT|
|000001b0| 45 20 46 52 4f 4d 20 54 | 48 45 20 44 53 4b 20 41 |E FROM T|HE DSK A|
|000001c0| 4e 44 20 4f 55 54 50 55 | 54 20 49 54 20 47 52 41 |ND OUTPU|T IT GRA|
|000001d0| 50 48 49 43 4c 59 2e 20 | 20 20 3b 0d 3b 20 52 55 |PHICLY. |  ;.; RU|
|000001e0| 4e 4e 49 4e 47 20 54 48 | 49 53 20 50 52 4f 47 52 |NNING TH|IS PROGR|
|000001f0| 41 4d 20 4f 4e 20 44 53 | 4b 44 20 57 49 4c 4c 20 |AM ON DS|KD WILL |
|00000200| 43 52 41 53 48 20 54 48 | 45 20 44 45 42 55 47 47 |CRASH TH|E DEBUGG|
|00000210| 45 52 21 20 20 20 20 20 | 3b 0d 3b 09 09 09 09 09 |ER!     |;.;.....|
|00000220| 09 09 20 20 20 20 3b 0d | 3b 20 41 20 73 70 65 63 |..    ;.|; A spec|
|00000230| 74 72 75 6d 20 61 6e 61 | 6c 79 7a 65 72 20 75 73 |trum ana|lyzer us|
|00000240| 69 6e 67 20 74 68 65 20 | 44 53 4b 20 61 6e 64 20 |ing the |DSK and |
|00000250| 79 6f 75 72 20 48 6f 73 | 74 20 50 43 2e 09 20 20 |your Hos|t PC..  |
|00000260| 20 20 3b 0d 3b 20 54 68 | 69 73 20 63 6f 64 65 20 |  ;.; Th|is code |
|00000270| 64 6f 65 73 20 4e 4f 54 | 20 77 6f 72 6b 20 77 69 |does NOT| work wi|
|00000280| 74 68 20 44 53 4b 44 21 | 20 20 49 74 20 69 73 20 |th DSKD!|  It is |
|00000290| 72 75 6e 20 66 72 6f 6d | 20 77 69 74 68 69 6e 20 |run from| within |
|000002a0| 3b 0d 3b 20 44 53 4b 4c | 20 75 73 69 6e 67 20 44 |;.; DSKL| using D|
|000002b0| 53 4b 5f 43 4f 4d 4d 20 | 74 6f 20 73 65 6e 64 20 |SK_COMM |to send |
|000002c0| 64 61 74 61 20 74 6f 20 | 74 68 65 20 68 6f 73 74 |data to |the host|
|000002d0| 20 76 69 61 20 74 68 65 | 20 52 53 32 33 32 3b 0d | via the| RS232;.|
|000002e0| 3b 20 6c 69 6e 6b 2e 20 | 20 49 74 20 69 73 20 73 |; link. | It is s|
|000002f0| 6c 6f 77 65 72 20 74 68 | 61 6e 20 44 53 4b 5f 53 |lower th|an DSK_S|
|00000300| 50 45 43 2c 20 62 75 74 | 20 79 6f 75 20 64 6f 20 |PEC, but| you do |
|00000310| 6e 6f 74 20 6e 65 65 64 | 20 61 6e 20 3b 0d 3b 20 |not need| an ;.; |
|00000320| 6f 73 63 69 6c 6c 69 73 | 63 6f 70 65 21 20 09 09 |oscillis|cope! ..|
|00000330| 09 09 09 20 20 20 20 3b | 0d 3b 09 09 09 09 09 09 |...    ;|.;......|
|00000340| 09 20 20 20 20 3b 0d 3b | 20 54 6f 20 72 75 6e 20 |.    ;.;| To run |
|00000350| 74 68 69 73 20 70 72 6f | 67 72 61 6d 2c 20 66 69 |this pro|gram, fi|
|00000360| 72 73 74 20 61 73 73 65 | 6d 62 6c 65 20 69 74 20 |rst asse|mble it |
|00000370| 75 73 69 6e 67 20 44 53 | 4b 41 2e 09 20 20 20 20 |using DS|KA..    |
|00000380| 3b 0d 3b 20 54 68 65 6e | 20 73 74 61 72 74 20 44 |;.; Then| start D|
|00000390| 53 4b 4c 2c 20 73 65 6c | 65 63 74 20 27 58 27 20 |SKL, sel|ect 'X' |
|000003a0| 66 6f 72 20 6c 6f 61 64 | 20 61 6e 64 20 65 78 65 |for load| and exe|
|000003b0| 63 75 74 65 2e 20 20 54 | 68 65 6e 20 20 20 3b 0d |cute.  T|hen   ;.|
|000003c0| 3b 20 73 65 6c 65 63 74 | 20 27 47 27 20 66 6f 72 |; select| 'G' for|
|000003d0| 20 67 72 61 70 68 69 63 | 73 2e 20 20 54 6f 20 65 | graphic|s.  To e|
|000003e0| 78 69 74 2c 20 68 69 74 | 20 61 6e 79 20 6b 65 79 |xit, hit| any key|
|000003f0| 20 28 65 78 63 65 70 74 | 20 51 29 20 3b 0d 3b 20 | (except| Q) ;.; |
|00000400| 73 69 6e 63 65 20 74 68 | 65 20 6b 65 79 62 6f 61 |since th|e keyboa|
|00000410| 72 64 20 69 73 20 6e 6f | 74 20 66 6c 75 73 68 65 |rd is no|t flushe|
|00000420| 64 20 61 6e 64 20 27 51 | 27 20 77 69 6c 6c 20 71 |d and 'Q|' will q|
|00000430| 75 69 74 20 44 53 4b 4c | 20 20 3b 0d 3b 20 65 6e |uit DSKL|  ;.; en|
|00000440| 74 69 72 65 6c 79 21 09 | 09 09 09 09 09 20 20 20 |tirely!.|.....   |
|00000450| 20 3b 0d 3b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | ;.;----|--------|
|00000460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 3b |--------|-------;|
|00000490| 0d 59 45 53 09 2e 73 65 | 74 09 31 09 09 3b 0d 4e |.YES..se|t.1..;.N|
|000004a0| 4f 09 2e 73 65 74 09 30 | 09 09 3b 0d 46 46 54 5f |O..set.0|..;.FFT_|
|000004b0| 53 09 09 2e 73 65 74 09 | 32 35 36 09 3b 0d 3b 2d |S...set.|256.;.;-|
|000004c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 3b 0d 41 49 43 5f |--------|--;.AIC_|
|00000500| 31 09 09 2e 73 65 74 09 | 30 78 30 43 31 38 09 3b |1...set.|0x0C18.;|
|00000510| 54 42 20 3d 54 41 20 3d | 20 36 20 20 20 20 30 30 |TB =TA =| 6    00|
|00000520| 30 30 31 31 30 30 30 30 | 30 31 31 30 30 30 3d 30 |00110000|011000=0|
|00000530| 78 30 43 31 38 0d 41 49 | 43 5f 32 09 09 2e 73 65 |x0C18.AI|C_2...se|
|00000540| 74 09 30 78 30 32 30 35 | 09 3b 54 41 27 3d 54 41 |t.0x0205|.;TA'=TA|
|00000550| 27 3d 20 31 20 20 20 20 | 30 30 30 30 30 30 31 30 |'= 1    |00000010|
|00000560| 30 30 30 30 30 31 30 31 | 3d 30 78 30 32 30 35 0d |00000101|=0x0205.|
|00000570| 41 49 43 5f 33 09 09 2e | 73 65 74 09 30 78 32 36 |AIC_3...|set.0x26|
|00000580| 34 65 09 3b 52 42 20 3d | 54 42 20 3d 20 30 78 31 |4e.;RB =|TB = 0x1|
|00000590| 33 20 30 30 31 30 30 31 | 31 30 30 31 30 30 31 31 |3 001001|10010011|
|000005a0| 31 30 3d 30 78 32 36 34 | 63 20 34 34 20 6b 68 7a |10=0x264|c 44 khz|
|000005b0| 0d 41 49 43 5f 43 4d 44 | 20 09 2e 73 65 74 09 30 |.AIC_CMD| ..set.0|
|000005c0| 78 30 30 30 33 09 3b 20 | 20 20 43 4f 4d 4d 41 4e |x0003.; |  COMMAN|
|000005d0| 44 20 20 20 20 30 30 30 | 30 30 30 30 30 30 30 30 |D    000|00000000|
|000005e0| 30 30 30 31 31 3d 30 78 | 30 30 38 33 0d 3b 2d 2d |00011=0x|0083.;--|
|000005f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 3b 0d 42 43 4d 44 09 |--------|-;.BCMD.|
|00000630| 09 2e 73 65 74 09 30 78 | 46 41 31 30 09 3b 4a 55 |..set.0x|FA10.;JU|
|00000640| 4d 50 20 43 4d 44 0d 42 | 58 4d 49 54 09 09 2e 73 |MP CMD.B|XMIT...s|
|00000650| 65 74 09 30 78 46 41 31 | 32 09 3b 4a 55 4d 50 20 |et.0xFA1|2.;JUMP |
|00000660| 58 4d 49 54 0d 42 58 4d | 49 54 31 36 20 09 2e 73 |XMIT.BXM|IT16 ..s|
|00000670| 65 74 09 30 78 46 41 31 | 34 09 3b 4a 55 4d 50 20 |et.0xFA1|4.;JUMP |
|00000680| 58 4d 49 54 31 36 0d 42 | 52 45 43 56 09 09 2e 73 |XMIT16.B|RECV...s|
|00000690| 65 74 09 30 78 46 41 31 | 36 09 3b 4a 55 4d 50 20 |et.0xFA1|6.;JUMP |
|000006a0| 52 45 43 56 0d 42 52 45 | 43 56 31 36 20 09 2e 73 |RECV.BRE|CV16 ..s|
|000006b0| 65 74 09 30 78 46 41 31 | 38 09 3b 4a 55 4d 50 20 |et.0xFA1|8.;JUMP |
|000006c0| 52 45 43 56 31 36 0d 42 | 43 58 4d 49 54 09 09 2e |RECV16.B|CXMIT...|
|000006d0| 73 65 74 09 30 78 46 41 | 31 41 09 3b 4a 55 4d 50 |set.0xFA|1A.;JUMP|
|000006e0| 20 43 58 4d 49 54 0d 3b | 2d 2d 2d 2d 2d 2d 2d 2d | CXMIT.;|--------|
|000006f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000720| 2d 2d 0d 53 54 41 54 31 | 09 09 2e 73 65 74 09 30 |--.STAT1|...set.0|
|00000730| 78 37 32 09 3b 0d 41 43 | 43 55 5f 6c 6f 20 09 2e |x72.;.AC|CU_lo ..|
|00000740| 73 65 74 09 30 78 37 38 | 09 3b 0d 41 43 43 55 5f |set.0x78|.;.ACCU_|
|00000750| 68 69 20 09 2e 73 65 74 | 09 30 78 37 39 09 3b 0d |hi ..set|.0x79.;.|
|00000760| 52 45 41 4c 09 09 2e 73 | 65 74 09 30 78 37 61 09 |REAL...s|et.0x7a.|
|00000770| 3b 0d 49 4d 41 47 09 09 | 2e 73 65 74 09 30 78 37 |;.IMAG..|.set.0x7|
|00000780| 62 09 3b 0d 54 45 4d 50 | 58 09 09 2e 73 65 74 09 |b.;.TEMP|X...set.|
|00000790| 30 78 37 63 09 3b 0d 41 | 55 58 30 09 09 2e 73 65 |0x7c.;.A|UX0...se|
|000007a0| 74 09 30 78 37 64 0d 41 | 55 58 31 09 09 2e 73 65 |t.0x7d.A|UX1...se|
|000007b0| 74 09 30 78 37 65 0d 3b | 2d 2d 2d 2d 2d 2d 2d 2d |t.0x7e.;|--------|
|000007c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007f0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 3b 20 20 20 20 53 45 |--------|.;    SE|
|00000800| 43 4f 4e 44 41 52 59 20 | 56 45 43 54 4f 52 20 54 |CONDARY |VECTOR T|
|00000810| 41 42 4c 45 20 4c 4f 41 | 43 54 45 44 20 49 4e 20 |ABLE LOA|CTED IN |
|00000820| 42 30 20 50 52 4f 47 52 | 41 4d 20 52 41 4d 0d 3b |B0 PROGR|AM RAM.;|
|00000830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000870| 0d 09 2e 69 6e 63 6c 75 | 64 65 20 20 22 6d 6d 72 |...inclu|de  "mmr|
|00000880| 65 67 73 2e 69 6e 63 22 | 09 3b 20 20 20 20 20 3e |egs.inc"|.;     >|
|00000890| 20 55 53 45 52 43 4f 44 | 45 20 53 48 4f 55 4c 44 | USERCOD|E SHOULD|
|000008a0| 20 4e 4f 54 20 4f 56 45 | 52 57 52 49 54 45 20 44 | NOT OVE|RWRITE D|
|000008b0| 53 4b 44 20 20 3c 0d 09 | 2e 70 73 09 30 78 66 61 |SKD  <..|.ps.0xfa|
|000008c0| 30 30 09 09 3b 20 20 20 | 20 20 3e 20 56 45 43 54 |00..;   |  > VECT|
|000008d0| 4f 52 53 2e 20 20 4f 4e | 20 4c 4f 41 44 2c 20 49 |ORS.  ON| LOAD, I|
|000008e0| 4e 54 32 20 49 53 20 52 | 45 53 54 4f 52 45 44 20 |NT2 IS R|ESTORED |
|000008f0| 3c 0d 20 20 20 20 20 20 | 20 3b 42 09 73 74 61 72 |<.      | ;B.star|
|00000900| 74 09 09 3b 52 53 20 20 | 20 3e 20 42 59 20 44 53 |t..;RS  | > BY DS|
|00000910| 4b 44 2c 20 42 55 54 20 | 54 52 41 50 20 49 53 20 |KD, BUT |TRAP IS |
|00000920| 4e 4f 54 09 20 20 20 20 | 3c 0d 20 20 20 20 20 20 |NOT.    |<.      |
|00000930| 20 3b 42 09 73 74 61 72 | 74 09 09 3b 49 4e 54 30 | ;B.star|t..;INT0|
|00000940| 0d 20 20 20 20 20 20 20 | 3b 42 09 73 74 61 72 74 |.       |;B.start|
|00000950| 09 09 3b 49 4e 54 31 0d | 20 20 20 20 20 20 20 3b |..;INT1.|       ;|
|00000960| 42 09 73 74 61 72 74 09 | 09 3b 49 4e 54 32 20 20 |B.start.|.;INT2  |
|00000970| 3e 20 44 53 4b 44 20 4c | 4f 41 44 20 49 47 4e 4f |> DSKD L|OAD IGNO|
|00000980| 52 45 53 20 49 4e 54 32 | 20 56 45 43 54 4f 52 0d |RES INT2| VECTOR.|
|00000990| 20 20 20 20 20 20 20 3b | 42 09 73 74 61 72 74 09 |       ;|B.start.|
|000009a0| 09 3b 54 49 4e 54 0d 09 | 2e 70 73 09 30 66 61 30 |.;TINT..|.ps.0fa0|
|000009b0| 61 68 09 09 3b 0d 09 42 | 09 52 49 4e 54 09 09 3b |ah..;..B|.RINT..;|
|000009c0| 52 49 4e 54 20 20 42 72 | 61 6e 63 68 20 74 6f 20 |RINT  Br|anch to |
|000009d0| 72 65 63 65 69 76 65 20 | 69 6e 74 65 72 72 75 70 |receive |interrup|
|000009e0| 74 20 72 6f 75 74 69 6e | 65 0d 09 65 69 6e 74 09 |t routin|e..eint.|
|000009f0| 09 09 3b 58 49 4e 54 20 | 20 58 49 4e 54 20 69 73 |..;XINT | XINT is|
|00000a00| 20 6f 6e 6c 79 20 66 6f | 72 20 74 69 6d 69 6e 67 | only fo|r timing|
|00000a10| 2c 20 73 6f 20 6a 75 73 | 74 20 72 65 74 75 72 6e |, so jus|t return|
|00000a20| 0d 09 72 65 74 09 09 09 | 3b 0d 20 20 20 20 20 20 |..ret...|;.      |
|00000a30| 3b 20 42 65 67 69 6e 20 | 54 52 41 50 2f 44 53 4b |; Begin |TRAP/DSK|
|00000a40| 44 20 4b 65 72 6e 61 6c | 09 3b 44 53 4b 44 20 6c |D Kernal|.;DSKD l|
|00000a50| 6f 61 64 20 64 6f 65 73 | 20 6e 6f 74 20 72 65 73 |oad does| not res|
|00000a60| 74 6f 72 65 20 74 68 69 | 73 20 63 6f 64 65 21 0d |tore thi|s code!.|
|00000a70| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|00000a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ab0| 2d 0d 3b 20 20 20 20 41 | 50 50 4c 49 43 41 54 49 |-.;    A|PPLICATI|
|00000ac0| 4f 4e 20 43 4f 44 45 20 | 49 53 20 4c 4f 43 41 54 |ON CODE |IS LOCAT|
|00000ad0| 45 44 20 41 42 4f 56 45 | 20 44 53 4b 44 20 4b 45 |ED ABOVE| DSKD KE|
|00000ae0| 52 4e 41 4c 0d 3b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |RNAL.;--|--------|
|00000af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b20| 2d 2d 2d 2d 2d 2d 0d 09 | 2e 70 73 09 30 78 46 42 |------..|.ps.0xFB|
|00000b30| 30 30 09 09 3b 0d 09 2e | 65 6e 74 72 79 09 09 09 |00..;...|entry...|
|00000b40| 3b 0d 3b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;.;-----|--------|
|00000b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b80| 2d 2d 2d 0d 73 74 61 72 | 74 3a 09 73 78 66 0d 09 |---.star|t:.sxf..|
|00000b90| 73 73 78 6d 0d 09 73 6f | 76 6d 09 09 09 3b 20 63 |ssxm..so|vm...; c|
|00000ba0| 61 74 63 68 20 61 63 63 | 75 6d 75 6c 61 74 6f 72 |atch acc|umulator|
|00000bb0| 20 6f 76 65 72 66 6c 6f | 77 73 0d 09 6c 64 70 6b | overflo|ws..ldpk|
|00000bc0| 09 30 09 09 3b 20 41 6c | 6c 20 64 69 72 65 63 74 |.0..; Al|l direct|
|00000bd0| 20 61 64 64 72 65 73 73 | 69 6e 67 20 69 73 20 74 | address|ing is t|
|00000be0| 6f 20 4d 4d 52 73 20 61 | 6e 64 20 42 32 0d 09 66 |o MMRs a|nd B2..f|
|00000bf0| 6f 72 74 09 30 09 09 3b | 20 53 65 72 69 61 6c 20 |ort.0..;| Serial |
|00000c00| 70 6f 72 74 20 3a 20 31 | 36 20 62 69 74 0d 09 72 |port : 1|6 bit..r|
|00000c10| 74 78 6d 09 09 09 3b 09 | 20 20 20 20 20 20 3a 20 |txm...;.|      : |
|00000c20| 65 78 74 2e 20 46 53 58 | 0d 09 73 66 73 6d 09 09 |ext. FSX|..sfsm..|
|00000c30| 09 3b 09 20 20 20 20 20 | 20 3b 20 62 75 72 73 74 |.;.     | ; burst|
|00000c40| 20 6d 6f 64 65 0d 09 6c | 61 63 6b 09 30 78 38 30 | mode..l|ack.0x80|
|00000c50| 09 09 3b 20 41 49 43 20 | 72 65 73 65 74 20 62 79 |..; AIC |reset by|
|00000c60| 20 70 75 6c 73 69 6e 67 | 20 2f 42 52 20 28 47 6c | pulsing| /BR (Gl|
|00000c70| 6f 62 61 6c 20 44 61 74 | 61 29 0d 09 73 61 63 68 |obal Dat|a)..sach|
|00000c80| 09 44 58 52 09 09 3b 20 | 73 65 6e 64 20 30 20 74 |.DXR..; |send 0 t|
|00000c90| 6f 20 44 58 52 20 28 41 | 49 43 29 0d 09 73 61 63 |o DXR (A|IC)..sac|
|00000ca0| 6c 09 47 52 45 47 09 09 | 3b 20 32 35 36 20 2a 20 |l.GREG..|; 256 * |
|00000cb0| 31 30 30 20 6e 53 20 2f | 42 52 20 70 75 6c 73 65 |100 nS /|BR pulse|
|00000cc0| 0d 09 6c 72 6c 6b 09 41 | 52 30 2c 30 78 46 46 46 |..lrlk.A|R0,0xFFF|
|00000cd0| 46 09 3b 0d 09 72 70 74 | 6b 09 32 35 35 09 09 3b |F.;..rpt|k.255..;|
|00000ce0| 20 72 65 61 64 20 6a 75 | 6e 6b 20 66 72 6f 6d 20 | read ju|nk from |
|00000cf0| 61 64 64 72 65 73 73 20 | 30 78 46 46 46 46 0d 09 |address |0xFFFF..|
|00000d00| 6c 61 63 09 2a 2c 30 2c | 41 52 30 20 09 3b 0d 09 |lac.*,0,|AR0 .;..|
|00000d10| 63 6f 6e 66 09 31 09 09 | 3b 20 42 31 2c 42 33 20 |conf.1..|; B1,B3 |
|00000d20| 61 73 20 44 52 41 4d 20 | 69 66 20 64 69 72 65 63 |as DRAM |if direc|
|00000d30| 74 20 62 6f 6f 74 6c 6f | 61 64 0d 3b 2d 2d 2d 2d |t bootlo|ad.;----|
|00000d40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 41 49 43 |--------|----.AIC|
|00000d60| 5f 52 53 09 6c 61 63 6b | 09 30 78 32 30 09 09 3b |_RS.lack|.0x20..;|
|00000d70| 20 54 75 72 6e 20 6f 6e | 20 58 49 4e 54 0d 09 73 | Turn on| XINT..s|
|00000d80| 61 63 6c 09 49 4d 52 09 | 09 3b 0d 09 69 64 6c 65 |acl.IMR.|.;..idle|
|00000d90| 09 09 09 3b 0d 09 6c 61 | 6c 6b 09 41 49 43 5f 31 |...;..la|lk.AIC_1|
|00000da0| 09 09 3b 20 4c 6f 61 64 | 20 65 61 63 68 20 41 49 |..; Load| each AI|
|00000db0| 43 20 63 6f 6e 66 69 67 | 75 72 61 74 69 6f 6e 20 |C config|uration |
|00000dc0| 77 6f 72 64 0d 09 63 61 | 6c 6c 09 41 49 43 5f 32 |word..ca|ll.AIC_2|
|00000dd0| 6e 64 20 09 3b 20 61 6e | 64 20 6c 6f 61 64 20 69 |nd .; an|d load i|
|00000de0| 74 20 69 6e 74 6f 20 74 | 68 65 20 41 49 43 0d 09 |t into t|he AIC..|
|00000df0| 6c 61 6c 6b 09 41 49 43 | 5f 32 09 09 3b 0d 09 63 |lalk.AIC|_2..;..c|
|00000e00| 61 6c 6c 09 41 49 43 5f | 32 6e 64 20 09 3b 0d 09 |all.AIC_|2nd .;..|
|00000e10| 6c 61 6c 6b 09 41 49 43 | 5f 33 09 09 3b 0d 09 63 |lalk.AIC|_3..;..c|
|00000e20| 61 6c 6c 09 41 49 43 5f | 32 6e 64 20 09 3b 0d 09 |all.AIC_|2nd .;..|
|00000e30| 6c 61 6c 6b 09 41 49 43 | 5f 43 4d 44 20 09 3b 0d |lalk.AIC|_CMD .;.|
|00000e40| 09 63 61 6c 6c 09 41 49 | 43 5f 32 6e 64 20 09 3b |.call.AI|C_2nd .;|
|00000e50| 0d 3b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.;------|--------|
|00000e60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e90| 2d 2d 0d 09 6c 61 72 6b | 09 41 52 37 2c 30 09 09 |--..lark|.AR7,0..|
|00000ea0| 3b 20 42 75 66 66 65 72 | 20 69 6e 69 74 69 61 6c |; Buffer| initial|
|00000eb0| 79 20 66 69 6c 6c 65 64 | 0d 09 6c 61 63 6b 09 30 |y filled|..lack.0|
|00000ec0| 78 31 30 09 09 3b 20 41 | 49 43 20 52 49 4e 54 0d |x10..; A|IC RINT.|
|00000ed0| 09 73 61 63 6c 09 49 4d | 52 09 09 3b 20 77 68 65 |.sacl.IM|R..; whe|
|00000ee0| 72 65 20 49 4e 54 30 20 | 69 6e 64 69 63 61 74 65 |re INT0 |indicate|
|00000ef0| 73 20 45 4f 43 20 28 45 | 6e 64 20 4f 66 20 43 6f |s EOC (E|nd Of Co|
|00000f00| 6e 76 29 0d 09 3b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |nv)..;--|--------|
|00000f10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f40| 2d 2d 2d 2d 2d 0d 09 6c | 61 72 6b 09 41 52 37 2c |-----..l|ark.AR7,|
|00000f50| 30 09 09 3b 20 42 75 66 | 66 65 72 20 69 6e 69 74 |0..; Buf|fer init|
|00000f60| 69 61 6c 79 20 66 69 6c | 6c 65 64 0d 46 46 54 3a |ialy fil|led.FFT:|
|00000f70| 09 6c 72 6c 6b 09 41 52 | 30 2c 46 46 54 5f 53 2f |.lrlk.AR|0,FFT_S/|
|00000f80| 32 09 3b 0d 09 6c 61 72 | 70 09 41 52 30 09 09 3b |2.;..lar|p.AR0..;|
|00000f90| 20 73 74 61 72 74 20 46 | 46 54 20 77 69 74 68 20 | start F|FT with |
|00000fa0| 41 52 30 3d 46 46 54 53 | 69 7a 65 0d 6e 65 77 5f |AR0=FFTS|ize.new_|
|00000fb0| 73 74 67 20 6c 72 6c 6b | 09 41 52 31 2c 5f 44 5f |stg lrlk|.AR1,_D_|
|00000fc0| 62 61 73 65 09 3b 20 41 | 52 31 20 69 73 20 74 68 |base.; A|R1 is th|
|00000fd0| 65 20 54 4f 50 20 42 46 | 4c 59 20 61 64 64 72 65 |e TOP BF|LY addre|
|00000fe0| 73 73 0d 09 6c 72 6c 6b | 09 41 52 32 2c 5f 44 5f |ss..lrlk|.AR2,_D_|
|00000ff0| 62 61 73 65 09 3b 20 41 | 52 32 20 69 73 20 74 68 |base.; A|R2 is th|
|00001000| 65 20 42 4f 54 20 42 46 | 4c 59 20 61 64 64 72 65 |e BOT BF|LY addre|
|00001010| 73 73 0d 09 6c 72 6c 6b | 09 41 52 33 2c 5f 54 5f |ss..lrlk|.AR3,_T_|
|00001020| 62 61 73 65 2b 31 09 3b | 20 41 52 33 20 69 73 20 |base+1.;| AR3 is |
|00001030| 74 68 65 20 54 57 69 64 | 64 6c 65 20 70 6f 69 6e |the TWid|dle poin|
|00001040| 74 65 72 0d 09 6c 72 6c | 6b 09 41 52 34 2c 46 46 |ter..lrl|k.AR4,FF|
|00001050| 54 5f 53 2f 32 09 3b 20 | 41 52 34 20 63 6f 75 6e |T_S/2.; |AR4 coun|
|00001060| 74 73 20 44 46 54 20 62 | 6c 6f 63 6b 73 0d 09 62 |ts DFT b|locks..b|
|00001070| 09 6e 5f 44 46 54 32 2c | 2a 2c 41 52 31 09 3b 0d |.n_DFT2,|*,AR1.;.|
|00001080| 44 46 54 3a 09 6d 61 72 | 09 2a 42 52 30 2b 2c 41 |DFT:.mar|.*BR0+,A|
|00001090| 52 35 09 3b 20 63 6f 6d | 70 6c 65 74 65 20 63 69 |R5.; com|plete ci|
|000010a0| 72 63 75 6c 61 72 20 62 | 75 66 66 65 72 20 66 6f |rcular b|uffer fo|
|000010b0| 72 20 54 57 27 73 0d 09 | 6c 61 72 6b 09 41 52 35 |r TW's..|lark.AR5|
|000010c0| 2c 31 09 09 3b 20 73 65 | 74 20 75 70 20 44 46 54 |,1..; se|t up DFT|
|000010d0| 20 6c 6f 6f 70 20 77 69 | 74 68 20 2a 42 52 30 2b | loop wi|th *BR0+|
|000010e0| 2f 42 41 4e 5a 0d 09 6d | 61 72 09 2a 42 52 30 2b |/BANZ..m|ar.*BR0+|
|000010f0| 2c 41 52 31 09 3b 20 75 | 73 69 6e 67 20 31 20 63 |,AR1.; u|sing 1 c|
|00001100| 75 74 73 20 2a 42 52 30 | 2b 20 6c 6f 6f 70 20 69 |uts *BR0|+ loop i|
|00001110| 6e 20 68 61 6c 66 21 0d | 09 3b 2d 2d 2d 2d 2d 2d |n half!.|.;------|
|00001120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001140| 2d 2d 0d 09 3b 20 41 52 | 31 3d 54 6f 70 20 41 52 |--..; AR|1=Top AR|
|00001150| 32 3d 42 6f 74 74 6f 6d | 20 41 52 33 3d 54 77 69 |2=Bottom| AR3=Twi|
|00001160| 64 64 6c 65 0d 09 3b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ddle..;-|--------|
|00001170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00001190| 42 46 4c 59 3a 09 6c 61 | 63 09 2a 2c 31 34 2c 41 |BFLY:.la|c.*,14,A|
|000011a0| 52 32 09 3b 28 69 6d 61 | 67 31 2b 69 6d 61 67 32 |R2.;(ima|g1+imag2|
|000011b0| 29 2f 34 0d 09 61 64 64 | 09 2a 2c 31 34 2c 41 52 |)/4..add|.*,14,AR|
|000011c0| 31 09 3b 0d 09 73 61 63 | 68 09 2a 2b 2c 31 2c 41 |1.;..sac|h.*+,1,A|
|000011d0| 52 32 09 3b 73 74 6f 72 | 65 20 54 4f 50 20 69 6d |R2.;stor|e TOP im|
|000011e0| 61 67 0d 09 73 75 62 09 | 2a 2c 31 35 09 09 3b 28 |ag..sub.|*,15..;(|
|000011f0| 69 6d 61 67 31 2d 69 6d | 61 67 32 29 2f 32 0d 09 |imag1-im|ag2)/2..|
|00001200| 73 61 63 68 09 2a 2b 2c | 31 2c 41 52 31 09 3b 73 |sach.*+,|1,AR1.;s|
|00001210| 74 6f 72 65 20 42 4f 54 | 20 69 6d 61 67 0d 09 6c |tore BOT| imag..l|
|00001220| 61 63 09 2a 2c 31 34 2c | 41 52 32 09 3b 28 72 65 |ac.*,14,|AR2.;(re|
|00001230| 61 6c 31 2b 72 65 61 6c | 32 29 2f 34 0d 09 61 64 |al1+real|2)/4..ad|
|00001240| 64 09 2a 2c 31 34 2c 41 | 52 31 09 3b 0d 09 73 61 |d.*,14,A|R1.;..sa|
|00001250| 63 68 09 2a 2b 2c 31 2c | 41 52 32 09 3b 73 74 6f |ch.*+,1,|AR2.;sto|
|00001260| 72 65 20 54 4f 50 20 72 | 65 61 6c 0d 09 73 75 62 |re TOP r|eal..sub|
|00001270| 09 2a 2c 31 35 09 09 3b | 28 72 65 61 6c 31 2d 72 |.*,15..;|(real1-r|
|00001280| 65 61 6c 32 29 2f 32 0d | 09 73 61 63 68 09 2a 2c |eal2)/2.|.sach.*,|
|00001290| 31 2c 41 52 35 20 09 3b | 73 74 6f 72 65 20 42 4f |1,AR5 .;|store BO|
|000012a0| 54 20 72 65 61 6c 0d 09 | 62 61 6e 7a 09 4f 4b 2c |T real..|banz.OK,|
|000012b0| 2a 42 52 30 2b 2c 41 52 | 33 09 3b 49 66 20 61 74 |*BR0+,AR|3.;If at|
|000012c0| 20 44 46 54 20 65 6e 64 | 20 71 75 69 74 20 65 61 | DFT end| quit ea|
|000012d0| 72 6c 79 0d 09 3b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |rly..;--|--------|
|000012e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 09 |--------|------..|
|000012f0| 6d 61 72 09 2a 2b 2c 41 | 52 32 09 09 3b 63 6c 65 |mar.*+,A|R2..;cle|
|00001300| 61 6e 20 75 70 20 54 57 | 20 62 61 73 65 20 28 78 |an up TW| base (x|
|00001310| 78 78 30 30 30 30 2b 31 | 29 0d 09 6d 61 72 09 2a |xx0000+1|)..mar.*|
|00001320| 2b 09 09 3b 6d 6f 64 69 | 66 79 20 42 4f 54 6f 6d |+..;modi|fy BOTom|
|00001330| 20 44 41 54 41 20 70 6f | 69 6e 74 65 72 0d 09 6d | DATA po|inter..m|
|00001340| 61 72 09 2a 30 2b 09 09 | 3b 0d 09 6d 61 72 09 2a |ar.*0+..|;..mar.*|
|00001350| 30 2b 2c 41 52 31 20 09 | 3b 0d 6e 5f 44 46 54 32 |0+,AR1 .|;.n_DFT2|
|00001360| 3a 20 6d 61 72 09 2a 30 | 2b 09 09 3b 6d 6f 64 69 |: mar.*0|+..;modi|
|00001370| 66 79 20 74 68 65 20 54 | 4f 50 20 70 6f 69 6e 74 |fy the T|OP point|
|00001380| 65 72 0d 09 6d 61 72 09 | 2a 30 2b 2c 41 52 34 20 |er..mar.|*0+,AR4 |
|00001390| 09 3b 0d 09 62 61 6e 7a | 09 44 46 54 2c 2a 30 2d |.;..banz|.DFT,*0-|
|000013a0| 2c 41 52 33 09 3b 64 65 | 63 20 44 46 54 20 62 6c |,AR3.;de|c DFT bl|
|000013b0| 6f 63 6b 20 63 6f 75 6e | 74 20 41 52 34 20 62 79 |ock coun|t AR4 by|
|000013c0| 20 4f 46 46 73 65 74 0d | 09 6c 61 72 70 09 41 52 | OFFset.|.larp.AR|
|000013d0| 30 09 09 3b 0d 09 6d 61 | 72 09 2a 42 52 30 2b 09 |0..;..ma|r.*BR0+.|
|000013e0| 09 3b 0d 09 62 61 6e 7a | 09 6e 65 77 5f 73 74 67 |.;..banz|.new_stg|
|000013f0| 2c 2a 09 3b 69 66 20 4f | 46 46 73 65 74 20 77 61 |,*.;if O|FFset wa|
|00001400| 73 20 31 2c 20 6e 6f 77 | 20 63 6c 65 61 72 65 64 |s 1, now| cleared|
|00001410| 0d 09 62 09 65 6e 64 46 | 46 54 09 09 3b 0d 09 20 |..b.endF|FT..;.. |
|00001420| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|00001430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 4f 4b 09 6c 74 |--------|--.OK.lt|
|00001440| 09 2a 2d 2c 41 52 32 09 | 09 3b 54 52 45 47 3d 54 |.*-,AR2.|.;TREG=T|
|00001450| 57 52 20 20 20 20 20 2a | 4e 4f 54 45 2a 20 54 77 |WR     *|NOTE* Tw|
|00001460| 69 64 64 6c 65 73 20 61 | 72 65 20 51 31 35 0d 09 |iddles a|re Q15..|
|00001470| 6d 70 79 09 2a 2d 09 09 | 3b 50 52 45 47 3d 52 45 |mpy.*-..|;PREG=RE|
|00001480| 41 4c 2a 54 57 52 0d 09 | 6c 74 70 09 2a 2b 2c 41 |AL*TWR..|ltp.*+,A|
|00001490| 52 33 09 09 3b 54 52 45 | 47 3d 49 4d 41 47 20 20 |R3..;TRE|G=IMAG  |
|000014a0| 20 20 20 41 43 43 55 3d | 52 45 41 4c 2a 54 57 52 |   ACCU=|REAL*TWR|
|000014b0| 0d 09 6d 70 79 09 2a 09 | 09 3b 50 52 45 47 3d 49 |..mpy.*.|.;PREG=I|
|000014c0| 4d 41 47 2a 54 57 49 09 | 09 20 20 20 20 20 20 41 |MAG*TWI.|.      A|
|000014d0| 52 32 3d 52 20 41 52 33 | 3d 49 0d 09 6c 74 73 09 |R2=R AR3|=I..lts.|
|000014e0| 2a 2b 2c 41 52 32 09 09 | 3b 54 52 45 47 3d 54 57 |*+,AR2..|;TREG=TW|
|000014f0| 49 20 20 20 20 20 20 41 | 43 43 55 3d 52 45 41 4c |I      A|CCU=REAL|
|00001500| 2a 54 57 52 2d 49 4d 41 | 47 2a 54 57 49 0d 09 6d |*TWR-IMA|G*TWI..m|
|00001510| 70 79 09 2a 09 09 3b 50 | 52 45 47 3d 52 45 41 4c |py.*..;P|REG=REAL|
|00001520| 2a 54 57 49 0d 09 73 61 | 63 68 09 2a 2d 2c 31 2c |*TWI..sa|ch.*-,1,|
|00001530| 41 52 32 20 20 20 20 20 | 3b 3c 3c 3b 0d 09 6c 74 |AR2     |;<<;..lt|
|00001540| 70 09 2a 2c 41 52 33 09 | 09 3b 54 52 45 47 3d 49 |p.*,AR3.|.;TREG=I|
|00001550| 4d 41 47 20 20 20 20 20 | 41 43 43 55 3d 52 45 41 |MAG     |ACCU=REA|
|00001560| 4c 2a 54 57 49 0d 09 6d | 70 79 09 2a 42 52 30 2b |L*TWI..m|py.*BR0+|
|00001570| 2c 41 52 32 09 3b 50 52 | 45 47 3d 49 4d 41 47 2a |,AR2.;PR|EG=IMAG*|
|00001580| 54 57 52 0d 09 61 70 61 | 63 09 09 09 3b 09 20 20 |TWR..apa|c...;.  |
|00001590| 20 20 20 20 20 41 43 43 | 55 3d 49 4d 41 47 2a 54 |     ACC|U=IMAG*T|
|000015a0| 57 52 2b 52 45 41 4c 2a | 54 57 49 0d 09 73 61 63 |WR+REAL*|TWI..sac|
|000015b0| 68 09 2a 2b 2c 31 2c 41 | 52 32 20 20 20 20 20 3b |h.*+,1,A|R2     ;|
|000015c0| 3c 3c 3b 0d 09 62 09 42 | 46 4c 59 2c 2a 2b 2c 41 |<<;..b.B|FLY,*+,A|
|000015d0| 52 31 09 3b 0d 09 3b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |R1.;..;-|--------|
|000015e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001610| 2d 2d 2d 0d 65 6e 64 46 | 46 54 3a 20 6c 61 72 70 |---.endF|FT: larp|
|00001620| 09 41 52 32 09 09 3b 54 | 72 61 6e 73 66 6f 72 6d |.AR2..;T|ransform|
|00001630| 20 52 45 41 4c 20 26 20 | 49 4d 41 47 20 74 6f 20 | REAL & |IMAG to |
|00001640| 6c 6f 67 20 6d 61 67 6e | 69 74 75 64 65 0d 09 6c |log magn|itude..l|
|00001650| 72 6c 6b 09 41 52 32 2c | 5f 44 5f 62 61 73 65 09 |rlk.AR2,|_D_base.|
|00001660| 3b 41 52 33 3d 46 46 54 | 20 64 61 74 61 20 70 6f |;AR3=FFT| data po|
|00001670| 69 6e 74 65 72 0d 09 6c | 72 6c 6b 09 41 52 33 2c |inter..l|rlk.AR3,|
|00001680| 46 46 54 5f 53 2d 31 09 | 3b 41 52 35 3d 46 46 54 |FFT_S-1.|;AR5=FFT|
|00001690| 20 6c 6f 6f 70 20 63 6f | 75 6e 74 65 72 0d 09 6c | loop co|unter..l|
|000016a0| 72 6c 6b 09 41 52 30 2c | 46 46 54 5f 53 0d 09 3b |rlk.AR0,|FFT_S..;|
|000016b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000016c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000016d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000016e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 3b 0d 09 3b 20 |--------|---;..; |
|000016f0| 57 49 4e 44 4f 57 3a 20 | 50 65 72 66 6f 72 6d 73 |WINDOW: |Performs|
|00001700| 20 70 6f 73 74 20 46 46 | 54 20 72 61 69 73 65 64 | post FF|T raised|
|00001710| 20 63 6f 73 69 6e 65 20 | 77 69 6e 64 6f 77 69 6e | cosine |windowin|
|00001720| 67 21 09 20 20 20 20 3b | 0d 09 3b 20 54 68 69 73 |g!.    ;|..; This|
|00001730| 20 69 73 20 64 6f 6e 65 | 20 62 79 20 75 73 69 6e | is done| by usin|
|00001740| 67 20 74 68 65 20 66 72 | 65 71 75 65 6e 63 79 20 |g the fr|equency |
|00001750| 63 6f 65 66 66 69 63 69 | 65 6e 74 73 20 6f 66 20 |coeffici|ents of |
|00001760| 74 68 65 20 20 20 3b 0d | 09 3b 20 77 69 6e 64 6f |the   ;.|.; windo|
|00001770| 77 20 69 6e 20 61 20 63 | 6f 6e 76 6f 6c 75 74 69 |w in a c|onvoluti|
|00001780| 6f 6e 20 66 69 6c 74 65 | 72 20 6f 66 20 74 68 65 |on filte|r of the|
|00001790| 20 73 70 65 63 74 72 75 | 6d 2e 09 20 20 20 20 3b | spectru|m..    ;|
|000017a0| 0d 09 3b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..;-----|--------|
|000017b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 3b 0d |--------|------;.|
|000017e0| 20 20 20 20 20 20 3b 6d | 61 72 09 2a 42 52 30 2b |      ;m|ar.*BR0+|
|000017f0| 09 20 20 20 20 20 20 20 | 3b 20 64 6f 6e 27 74 20 |.       |; don't |
|00001800| 73 74 61 72 74 20 61 74 | 20 44 43 0d 6d 6f 72 65 |start at| DC.more|
|00001810| 5f 4d 41 47 0d 09 6d 61 | 72 09 20 2a 42 52 30 2d |_MAG..ma|r. *BR0-|
|00001820| 09 09 3b 20 20 2d 49 4d | 41 47 5b 2d 31 5d 20 20 |..;  -IM|AG[-1]  |
|00001830| 31 2d 43 4f 53 28 6e 77 | 74 2f 4e 29 09 20 2b 20 |1-COS(nw|t/N). + |
|00001840| 31 0d 09 6c 61 63 09 20 | 2a 42 52 30 2b 2c 31 35 |1..lac. |*BR0+,15|
|00001850| 09 3b 20 20 20 49 4d 41 | 47 5b 2d 30 5d 20 20 66 |.;   IMA|G[-0]  f|
|00001860| 69 6c 74 65 72 20 62 79 | 20 70 6f 73 74 09 20 7c |ilter by| post. ||
|00001870| 0d 09 73 75 62 68 09 20 | 2a 42 52 30 2b 09 09 3b |..subh. |*BR0+..;|
|00001880| 20 20 2b 49 4d 41 47 5b | 2b 31 5d 20 20 63 6f 6e |  +IMAG[|+1]  con|
|00001890| 76 6f 6c 75 74 69 6f 6e | 20 20 20 20 3c 2d 2d 2b |volution|    <--+|
|000018a0| 2b 2b 2d 2d 3e 0d 09 61 | 64 64 09 20 2a 42 52 30 |++-->..a|dd. *BR0|
|000018b0| 2d 2c 31 35 09 3b 20 20 | 20 49 4d 41 47 09 09 09 |-,15.;  | IMAG...|
|000018c0| 2b 20 2b 20 2d 2e 35 0d | 09 73 61 63 68 09 20 49 |+ + -.5.|.sach. I|
|000018d0| 4d 41 47 09 09 3b 0d 09 | 6d 61 72 09 20 2a 2b 09 |MAG..;..|mar. *+.|
|000018e0| 09 3b 20 20 20 52 45 41 | 4c 0d 09 6d 61 72 09 20 |.;   REA|L..mar. |
|000018f0| 2a 42 52 30 2d 09 09 3b | 20 20 2d 52 45 41 4c 5b |*BR0-..;|  -REAL[|
|00001900| 2d 31 5d 0d 09 6c 61 63 | 09 20 2a 42 52 30 2b 2c |-1]..lac|. *BR0+,|
|00001910| 31 35 09 3b 20 20 20 52 | 45 41 4c 5b 2d 30 5d 20 |15.;   R|EAL[-0] |
|00001920| 20 58 5b 2d 31 5d 20 2d | 32 2a 58 5b 30 5d 20 2b | X[-1] -|2*X[0] +|
|00001930| 20 58 5b 31 5d 0d 09 73 | 75 62 68 09 20 2a 42 52 | X[1]..s|ubh. *BR|
|00001940| 30 2b 09 09 3b 20 20 2b | 52 45 41 4c 5b 2b 31 5d |0+..;  +|REAL[+1]|
|00001950| 0d 09 61 64 64 09 20 2a | 42 52 30 2d 2c 31 35 2c |..add. *|BR0-,15,|
|00001960| 41 52 31 09 3b 20 20 20 | 52 45 41 4c 0d 09 73 61 |AR1.;   |REAL..sa|
|00001970| 63 68 09 20 52 45 41 4c | 09 09 3b 0d 09 73 71 72 |ch. REAL|..;..sqr|
|00001980| 61 09 49 4d 41 47 09 09 | 3b 49 4d 41 47 20 26 20 |a.IMAG..|;IMAG & |
|00001990| 52 45 41 4c 20 63 61 6e | 20 62 65 20 61 74 20 6d |REAL can| be at m|
|000019a0| 6f 73 74 20 30 78 37 66 | 66 66 20 51 31 35 0d 09 |ost 0x7f|ff Q15..|
|000019b0| 6c 74 70 09 52 45 41 4c | 09 09 3b 4d 50 59 20 77 |ltp.REAL|..;MPY w|
|000019c0| 69 6c 6c 20 72 65 73 75 | 6c 74 20 28 61 74 20 6d |ill resu|lt (at m|
|000019d0| 6f 73 74 29 20 69 6e 20 | 6d 61 78 20 70 6f 73 69 |ost) in |max posi|
|000019e0| 74 69 76 65 0d 09 6d 70 | 79 09 52 45 41 4c 09 09 |tive..mp|y.REAL..|
|000019f0| 3b 0d 09 61 70 61 63 09 | 09 09 3b 6f 75 74 70 75 |;..apac.|..;outpu|
|00001a00| 74 20 69 73 20 70 6f 73 | 69 74 69 76 65 20 51 33 |t is pos|itive Q3|
|00001a10| 30 0d 09 61 64 64 6b 09 | 30 78 31 09 09 3b 53 65 |0..addk.|0x1..;Se|
|00001a20| 74 20 75 70 20 61 20 66 | 6c 6f 6f 72 20 76 61 6c |t up a f|loor val|
|00001a30| 75 65 3b 20 6c 6f 67 28 | 30 29 20 6e 6f 74 20 6c |ue; log(|0) not l|
|00001a40| 65 67 61 6c 21 0d 09 6c | 61 72 6b 09 41 52 31 2c |egal!..l|ark.AR1,|
|00001a50| 32 32 09 09 3b 70 72 65 | 2d 73 63 61 6c 69 6e 67 |22..;pre|-scaling|
|00001a60| 20 65 78 70 6f 6e 65 6e | 74 20 73 68 69 66 74 73 | exponen|t shifts|
|00001a70| 20 59 20 61 78 69 73 0d | 09 72 70 74 6b 09 33 31 | Y axis.|.rptk.31|
|00001a80| 09 09 3b 0d 09 6e 6f 72 | 6d 09 2a 2d 09 09 3b 0d |..;..nor|m.*-..;.|
|00001a90| 09 6c 61 72 70 09 41 52 | 32 09 09 3b 0d 09 6d 61 |.larp.AR|2..;..ma|
|00001aa0| 72 09 2a 42 52 30 2d 09 | 20 20 3b 2d 52 45 41 4c |r.*BR0-.|  ;-REAL|
|00001ab0| 3b 64 75 6d 70 20 6c 6f | 67 28 66 29 20 69 6e 74 |;dump lo|g(f) int|
|00001ac0| 6f 20 6f 6c 64 65 73 74 | 20 52 45 41 4c 20 28 6f |o oldest| REAL (o|
|00001ad0| 64 64 20 61 64 64 72 29 | 0d 09 73 61 63 68 09 2a |dd addr)|..sach.*|
|00001ae0| 2c 32 09 09 3b 63 6c 72 | 20 65 78 70 6c 69 63 69 |,2..;clr| explici|
|00001af0| 74 20 31 2e 30 20 61 6e | 64 20 73 69 67 6e 20 62 |t 1.0 an|d sign b|
|00001b00| 69 74 20 66 72 6f 6d 20 | 6d 61 6e 74 0d 09 7a 61 |it from |mant..za|
|00001b10| 6c 73 09 2a 09 09 3b 6c | 6f 61 64 20 69 6e 74 6f |ls.*..;l|oad into|
|00001b20| 20 41 43 43 55 5f 6c 6f | 0d 09 73 61 72 09 41 52 | ACCU_lo|..sar.AR|
|00001b30| 31 2c 2a 09 09 3b 74 68 | 65 6e 20 61 70 70 65 6e |1,*..;th|en appen|
|00001b40| 64 20 65 78 70 6f 6e 65 | 6e 74 20 28 41 52 31 29 |d expone|nt (AR1)|
|00001b50| 0d 09 61 64 64 68 09 2a | 09 09 3b 0d 09 72 70 74 |..addh.*|..;..rpt|
|00001b60| 6b 09 31 30 09 09 3b 6a | 61 6d 20 72 65 73 75 6c |k.10..;j|am resul|
|00001b70| 74 20 69 6e 74 6f 20 41 | 43 43 55 5f 68 69 0d 09 |t into A|CCU_hi..|
|00001b80| 73 66 6c 09 09 09 3b 49 | 66 20 6e 65 65 64 65 64 |sfl...;I|f needed|
|00001b90| 2c 20 55 73 65 20 41 44 | 44 48 20 74 6f 20 73 61 |, Use AD|DH to sa|
|00001ba0| 74 75 72 61 74 65 20 6f | 76 65 72 66 6c 6f 77 0d |turate o|verflow.|
|00001bb0| 20 20 20 20 20 3b 09 73 | 61 63 68 09 2a 09 09 3b |     ;.s|ach.*..;|
|00001bc0| 0d 20 20 20 20 20 3b 09 | 61 64 64 68 09 2a 09 09 |.     ;.|addh.*..|
|00001bd0| 3b 0d 09 73 61 63 68 09 | 2a 09 09 3b 0d 09 6c 61 |;..sach.|*..;..la|
|00001be0| 63 09 2a 09 09 3b 0d 09 | 61 6e 64 6b 09 30 78 66 |c.*..;..|andk.0xf|
|00001bf0| 66 66 63 2c 30 09 3b 0d | 09 73 61 63 6c 09 2a 42 |ffc,0.;.|.sacl.*B|
|00001c00| 52 30 2b 09 09 3b 20 52 | 45 41 4c 0d 09 6d 61 72 |R0+..; R|EAL..mar|
|00001c10| 09 2a 2d 09 09 3b 20 49 | 4d 41 47 0d 09 6d 61 72 |.*-..; I|MAG..mar|
|00001c20| 09 2a 42 52 30 2b 2c 41 | 52 33 09 3b 2b 49 4d 41 |.*BR0+,A|R3.;+IMA|
|00001c30| 47 0d 09 62 61 6e 7a 09 | 6d 6f 72 65 5f 4d 41 47 |G..banz.|more_MAG|
|00001c40| 2c 2a 2d 2c 41 52 32 20 | 3b 6b 65 65 70 20 67 6f |,*-,AR2 |;keep go|
|00001c50| 69 6e 67 20 75 6e 74 69 | 6c 20 61 6c 6c 20 64 6f |ing unti|l all do|
|00001c60| 6e 65 0d 09 3b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ne..;---|--------|
|00001c70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001c90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 42 49 |--------|-----.BI|
|00001ca0| 54 52 45 56 3a 20 6c 72 | 6c 6b 09 41 52 30 2c 46 |TREV: lr|lk.AR0,F|
|00001cb0| 46 54 5f 53 09 3b 4e 6f | 77 20 70 65 72 66 6f 72 |FT_S.;No|w perfor|
|00001cc0| 6d 20 4f 75 74 70 75 74 | 20 62 69 74 20 72 65 76 |m Output| bit rev|
|00001cd0| 65 72 73 61 6c 0d 09 6c | 72 6c 6b 09 41 52 31 2c |ersal..l|rlk.AR1,|
|00001ce0| 5f 44 5f 62 61 73 65 09 | 3b 62 79 20 6d 6f 76 69 |_D_base.|;by movi|
|00001cf0| 6e 67 20 74 68 65 20 6d | 61 67 6e 69 74 75 64 65 |ng the m|agnitude|
|00001d00| 2c 20 77 68 69 63 68 0d | 09 6c 72 6c 6b 09 41 52 |, which.|.lrlk.AR|
|00001d10| 32 2c 5f 44 5f 62 61 73 | 65 2b 31 09 3b 69 73 20 |2,_D_bas|e+1.;is |
|00001d20| 69 6e 20 74 68 65 20 52 | 45 41 4c 20 73 6c 6f 74 |in the R|EAL slot|
|00001d30| 73 2c 20 69 6e 74 6f 20 | 74 68 65 0d 09 6c 72 6c |s, into |the..lrl|
|00001d40| 6b 09 41 52 33 2c 46 46 | 54 5f 53 2d 31 09 3b 49 |k.AR3,FF|T_S-1.;I|
|00001d50| 4d 41 47 20 73 6c 6f 74 | 73 20 6f 66 20 74 68 65 |MAG slot|s of the|
|00001d60| 20 46 46 54 20 64 61 74 | 61 20 61 72 72 61 79 0d | FFT dat|a array.|
|00001d70| 6d 6f 72 65 5f 42 52 20 | 6c 61 63 09 2a 2b 09 09 |more_BR |lac.*+..|
|00001d80| 3b 6c 6f 61 64 20 74 68 | 65 20 6d 61 67 6e 69 74 |;load th|e magnit|
|00001d90| 75 64 65 0d 09 6d 61 72 | 09 2a 2b 2c 41 52 31 09 |ude..mar|.*+,AR1.|
|00001da0| 09 3b 0d 09 73 61 63 6c | 09 2a 42 52 30 2b 2c 30 |.;..sacl|.*BR0+,0|
|00001db0| 2c 41 52 33 09 3b 6d 6f | 76 65 20 69 74 20 74 6f |,AR3.;mo|ve it to|
|00001dc0| 20 61 6e 20 6f 70 65 6e | 20 49 4d 41 47 20 73 6c | an open| IMAG sl|
|00001dd0| 6f 74 0d 09 62 61 6e 7a | 09 6d 6f 72 65 5f 42 52 |ot..banz|.more_BR|
|00001de0| 2c 2a 2d 2c 41 52 32 09 | 3b 6d 6f 72 65 20 64 61 |,*-,AR2.|;more da|
|00001df0| 74 61 20 74 6f 20 6d 6f | 76 65 3f 0d 09 3b 2d 2d |ta to mo|ve?..;--|
|00001e00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e30| 2d 2d 2d 2d 2d 2d 0d 4d | 4f 56 45 5f 49 4f 20 6c |------.M|OVE_IO l|
|00001e40| 61 72 70 09 41 52 37 09 | 09 3b 77 61 69 74 20 75 |arp.AR7.|.;wait u|
|00001e50| 6e 74 69 6c 20 62 75 66 | 66 65 72 20 69 73 20 66 |ntil buf|fer is f|
|00001e60| 75 6c 6c 0d 09 62 61 6e | 7a 09 4d 4f 56 45 5f 49 |ull..ban|z.MOVE_I|
|00001e70| 4f 2c 2a 2c 41 52 32 09 | 3b 28 41 52 37 20 69 73 |O,*,AR2.|;(AR7 is|
|00001e80| 20 64 65 63 72 65 6d 65 | 6e 74 65 64 20 62 79 20 | decreme|nted by |
|00001e90| 49 53 52 29 0d 09 3b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ISR)..;-|--------|
|00001ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00001eb0| 09 6c 72 6c 6b 09 41 52 | 33 2c 5f 44 5f 62 61 73 |.lrlk.AR|3,_D_bas|
|00001ec0| 65 09 3b 41 52 33 3d 46 | 46 54 20 64 61 74 61 20 |e.;AR3=F|FT data |
|00001ed0| 70 6f 69 6e 74 65 72 0d | 09 6c 72 6c 6b 09 41 52 |pointer.|.lrlk.AR|
|00001ee0| 34 2c 5f 42 5f 62 61 73 | 65 09 3b 41 52 34 3d 42 |4,_B_bas|e.;AR4=B|
|00001ef0| 55 46 46 20 64 61 74 61 | 20 70 6f 69 6e 74 65 72 |UFF data| pointer|
|00001f00| 0d 09 6c 72 6c 6b 09 41 | 52 35 2c 46 46 54 5f 53 |..lrlk.A|R5,FFT_S|
|00001f10| 2d 31 09 3b 41 52 35 3d | 46 46 54 20 6c 6f 6f 70 |-1.;AR5=|FFT loop|
|00001f20| 20 63 6f 75 6e 74 65 72 | 0d 09 6c 72 6c 6b 09 41 | counter|..lrlk.A|
|00001f30| 52 36 2c 5f 42 5f 62 61 | 73 65 09 3b 41 52 36 3d |R6,_B_ba|se.;AR6=|
|00001f40| 49 53 52 20 42 55 46 46 | 20 64 61 74 61 20 70 6f |ISR BUFF| data po|
|00001f50| 69 6e 74 65 72 0d 09 6c | 72 6c 6b 09 41 52 37 2c |inter..l|rlk.AR7,|
|00001f60| 46 46 54 5f 53 2d 31 09 | 3b 41 52 37 3d 49 53 52 |FFT_S-1.|;AR7=ISR|
|00001f70| 20 42 55 46 46 20 6c 6f | 6f 70 20 63 6f 75 6e 74 | BUFF lo|op count|
|00001f80| 65 72 0d 09 3b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |er..;---|--------|
|00001f90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 09 |--------|------..|
|00001fa0| 64 69 6e 74 0d 09 7a 61 | 63 0d 09 63 61 6c 6c 09 |dint..za|c..call.|
|00001fb0| 44 41 54 32 48 4f 53 54 | 0d 09 6c 61 72 70 09 41 |DAT2HOST|..larp.A|
|00001fc0| 52 32 0d 6d 6f 72 65 5f | 49 4f 0d 09 6c 61 72 09 |R2.more_|IO..lar.|
|00001fd0| 41 52 32 2c 2a 2c 41 52 | 33 09 3b 47 65 74 20 41 |AR2,*,AR|3.;Get A|
|00001fe0| 2f 44 20 76 61 6c 75 65 | 20 66 72 6f 6d 20 62 75 |/D value| from bu|
|00001ff0| 66 66 65 72 0d 09 6c 61 | 63 09 2a 2c 30 2c 41 52 |ffer..la|c.*,0,AR|
|00002000| 34 20 09 3b 41 43 43 55 | 3d 20 6c 6f 67 20 6d 61 |4 .;ACCU|= log ma|
|00002010| 67 6e 69 74 75 64 65 20 | 28 66 72 6f 6d 20 65 76 |gnitude |(from ev|
|00002020| 65 6e 20 61 64 64 72 65 | 73 73 29 0d 09 73 61 63 |en addre|ss)..sac|
|00002030| 6c 09 2a 2b 2c 30 2c 41 | 52 33 09 3b 0d 0d 09 72 |l.*+,0,A|R3.;...r|
|00002040| 70 74 6b 09 37 0d 09 73 | 66 72 0d 09 6f 72 6b 09 |ptk.7..s|fr..ork.|
|00002050| 31 0d 09 63 61 6c 6c 09 | 44 41 54 32 48 4f 53 54 |1..call.|DAT2HOST|
|00002060| 0d 09 6c 61 72 70 09 41 | 52 33 0d 0d 09 7a 61 63 |..larp.A|R3...zac|
|00002070| 09 09 09 3b 0d 09 73 61 | 63 68 09 2a 2b 2c 30 09 |...;..sa|ch.*+,0.|
|00002080| 09 3b 49 4d 41 47 3d 30 | 0d 09 73 61 72 09 41 52 |.;IMAG=0|..sar.AR|
|00002090| 32 2c 2a 2b 2c 41 52 35 | 09 3b 0d 0d 09 62 61 6e |2,*+,AR5|.;...ban|
|000020a0| 7a 09 6d 6f 72 65 5f 49 | 4f 2c 2a 2d 2c 41 52 34 |z.more_I|O,*-,AR4|
|000020b0| 09 3b 0d 09 65 69 6e 74 | 09 09 09 3b 20 42 55 46 |.;..eint|...; BUF|
|000020c0| 46 20 63 6c 65 61 72 20 | 73 6f 20 65 6e 61 62 6c |F clear |so enabl|
|000020d0| 65 20 49 4e 54 27 73 0d | 09 62 09 46 46 54 09 09 |e INT's.|.b.FFT..|
|000020e0| 3b 0d 3b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;.;-----|--------|
|000020f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002100| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002120| 2d 2d 2d 2d 0d 52 49 4e | 54 3a 09 73 73 74 31 09 |----.RIN|T:.sst1.|
|00002130| 53 54 41 54 31 09 09 3b | 52 65 63 6f 76 65 72 20 |STAT1..;|Recover |
|00002140| 41 52 50 20 66 72 6f 6d | 20 41 52 42 20 62 79 20 |ARP from| ARB by |
|00002150| 4c 53 54 31 20 6c 61 73 | 74 0d 09 6c 61 72 70 09 |LST1 las|t..larp.|
|00002160| 41 52 37 09 09 3b 41 52 | 36 20 3d 20 63 75 72 72 |AR7..;AR|6 = curr|
|00002170| 65 6e 74 20 62 75 66 66 | 65 72 20 70 6f 73 69 74 |ent buff|er posit|
|00002180| 69 6f 6e 0d 09 62 61 6e | 7a 09 6d 6f 72 65 5f 62 |ion..ban|z.more_b|
|00002190| 75 66 2c 2a 2d 2c 41 52 | 36 20 3b 69 66 20 62 75 |uf,*-,AR|6 ;if bu|
|000021a0| 66 66 65 72 20 69 73 20 | 66 75 6c 6c 20 52 45 54 |ffer is |full RET|
|000021b0| 20 77 2f 6f 20 45 49 4e | 54 0d 09 6c 61 72 6b 09 | w/o EIN|T..lark.|
|000021c0| 41 52 37 2c 30 09 09 3b | 0d 09 6c 73 74 31 09 53 |AR7,0..;|..lst1.S|
|000021d0| 54 41 54 31 09 09 3b 0d | 09 72 65 74 09 09 09 3b |TAT1..;.|.ret...;|
|000021e0| 0d 6d 6f 72 65 5f 62 75 | 66 09 09 09 3b 0d 09 73 |.more_bu|f...;..s|
|000021f0| 61 63 6c 09 41 43 43 55 | 5f 6c 6f 20 09 3b 55 73 |acl.ACCU|_lo .;Us|
|00002200| 65 20 4e 4f 52 4d 20 73 | 74 61 72 74 20 76 61 6c |e NORM s|tart val|
|00002210| 20 74 6f 20 61 64 6a 20 | 59 20 6f 66 66 73 65 74 | to adj |Y offset|
|00002220| 0d 09 73 61 63 68 09 41 | 43 43 55 5f 68 69 20 09 |..sach.A|CCU_hi .|
|00002230| 3b 70 6f 73 74 20 6c 6f | 67 20 63 6f 6e 76 65 72 |;post lo|g conver|
|00002240| 74 20 73 63 61 6c 69 6e | 67 20 61 6a 73 74 73 20 |t scalin|g ajsts |
|00002250| 6d 61 67 6e 69 74 75 64 | 65 0d 09 7a 61 6c 68 09 |magnitud|e..zalh.|
|00002260| 2a 09 09 3b 47 65 74 20 | 76 61 6c 75 65 0d 09 73 |*..;Get |value..s|
|00002270| 61 63 68 09 44 58 52 09 | 09 3b 0d 09 3b 2d 2d 2d |ach.DXR.|.;..;---|
|00002280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002290| 2d 2d 2d 2d 2d 0d 09 6c | 61 63 09 44 52 52 09 09 |-----..l|ac.DRR..|
|000022a0| 3b 0d 09 62 69 74 09 54 | 45 4d 50 58 2c 31 35 09 |;..bit.T|EMPX,15.|
|000022b0| 3b 49 6e 76 65 72 74 69 | 6e 67 20 65 76 65 72 79 |;Inverti|ng every|
|000022c0| 20 6f 74 68 65 72 20 69 | 6e 70 75 74 20 61 6c 69 | other i|nput ali|
|000022d0| 61 73 65 73 20 74 68 65 | 0d 09 62 62 7a 09 4e 4f |ases the|..bbz.NO|
|000022e0| 5f 4e 56 52 54 20 09 3b | 66 72 65 71 75 65 6e 63 |_NVRT .;|frequenc|
|000022f0| 79 20 64 6f 6d 61 69 6e | 2c 20 73 77 61 70 70 69 |y domain|, swappi|
|00002300| 6e 67 20 44 43 20 61 6e | 64 20 4e 79 71 75 69 73 |ng DC an|d Nyquis|
|00002310| 74 21 0d 09 6e 65 67 09 | 09 09 3b 0d 4e 4f 5f 4e |t!..neg.|..;.NO_N|
|00002320| 56 52 54 20 09 09 09 3b | 0d 09 73 61 63 6c 09 2a |VRT ...;|..sacl.*|
|00002330| 2b 09 09 3b 3c 3c 3c 20 | 73 74 6f 72 65 20 44 52 |+..;<<< |store DR|
|00002340| 52 2c 20 61 6e 64 20 70 | 6f 69 6e 74 20 74 6f 20 |R, and p|oint to |
|00002350| 6e 65 78 74 0d 09 6c 61 | 63 09 54 45 4d 50 58 09 |next..la|c.TEMPX.|
|00002360| 09 3b 0d 09 78 6f 72 6b | 09 31 09 09 3b 0d 09 73 |.;..xork|.1..;..s|
|00002370| 61 63 6c 09 54 45 4d 50 | 58 09 09 3b 0d 09 7a 61 |acl.TEMP|X..;..za|
|00002380| 6c 68 09 41 43 43 55 5f | 68 69 20 09 3b 0d 09 61 |lh.ACCU_|hi .;..a|
|00002390| 64 64 73 09 41 43 43 55 | 5f 6c 6f 20 09 3b 0d 09 |dds.ACCU|_lo .;..|
|000023a0| 6c 73 74 31 09 53 54 41 | 54 31 09 09 3b 0d 09 65 |lst1.STA|T1..;..e|
|000023b0| 69 6e 74 09 09 09 3b 0d | 09 72 65 74 09 09 09 3b |int...;.|.ret...;|
|000023c0| 0d 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.*******|********|
|000023d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000023e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000023f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002400| 2a 2a 2a 0d 41 49 43 5f | 32 6e 64 20 61 64 6c 6b |***.AIC_|2nd adlk|
|00002410| 09 36 2c 31 35 09 09 3b | 73 65 74 20 41 43 43 55 |.6,15..;|set ACCU|
|00002420| 5f 68 69 20 3d 20 33 20 | 66 6f 72 20 73 65 63 6f |_hi = 3 |for seco|
|00002430| 6e 64 61 72 79 20 58 4d | 49 54 0d 09 69 64 6c 65 |ndary XM|IT..idle|
|00002440| 09 09 09 3b 57 61 69 74 | 20 66 6f 72 20 61 20 58 |...;Wait| for a X|
|00002450| 49 4e 54 0d 09 73 61 63 | 68 09 44 58 52 09 09 3b |INT..sac|h.DXR..;|
|00002460| 0d 09 69 64 6c 65 09 09 | 09 3b 41 43 43 55 5f 68 |..idle..|.;ACCU_h|
|00002470| 69 20 72 65 71 75 65 73 | 74 73 20 32 6e 64 20 58 |i reques|ts 2nd X|
|00002480| 4d 49 54 0d 09 73 61 63 | 6c 09 44 58 52 09 09 3b |MIT..sac|l.DXR..;|
|00002490| 0d 09 69 64 6c 65 09 09 | 09 3b 41 43 43 55 5f 6c |..idle..|.;ACCU_l|
|000024a0| 6f 20 73 65 74 73 20 75 | 70 20 72 65 67 69 73 74 |o sets u|p regist|
|000024b0| 65 72 73 0d 09 73 61 63 | 6c 09 44 58 52 2c 32 09 |ers..sac|l.DXR,2.|
|000024c0| 09 3b 63 6c 6f 73 65 20 | 63 6f 6d 6d 61 6e 64 20 |.;close |command |
|000024d0| 77 69 74 68 20 4c 53 42 | 20 3d 20 30 30 0d 09 69 |with LSB| = 00..i|
|000024e0| 64 6c 65 09 09 09 3b 0d | 09 65 69 6e 74 09 09 09 |dle...;.|.eint...|
|000024f0| 3b 0d 09 72 65 74 09 09 | 09 3b 0d 2a 2a 2a 2a 2a |;..ret..|.;.*****|
|00002500| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002510| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002520| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002530| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|00002540| 44 41 54 32 48 4f 53 54 | 20 73 61 63 6c 09 20 20 |DAT2HOST| sacl.  |
|00002550| 41 43 43 55 5f 6c 6f 09 | 3b 0d 09 20 73 61 63 68 |ACCU_lo.|;.. sach|
|00002560| 09 20 20 41 43 43 55 5f | 68 69 09 3b 0d 09 20 73 |.  ACCU_|hi.;.. s|
|00002570| 61 72 09 20 20 41 52 30 | 2c 41 55 58 30 09 3b 0d |ar.  AR0|,AUX0.;.|
|00002580| 09 20 73 61 72 09 20 20 | 41 52 31 2c 41 55 58 31 |. sar.  |AR1,AUX1|
|00002590| 09 3b 0d 09 20 63 61 6c | 6c 09 20 20 42 58 4d 49 |.;.. cal|l.  BXMI|
|000025a0| 54 20 09 3b 0d 09 20 7a | 61 6c 73 09 20 20 41 43 |T .;.. z|als.  AC|
|000025b0| 43 55 5f 6c 6f 09 3b 0d | 09 20 61 64 64 68 09 20 |CU_lo.;.|. addh. |
|000025c0| 20 41 43 43 55 5f 68 69 | 09 3b 0d 09 20 6c 61 72 | ACCU_hi|.;.. lar|
|000025d0| 09 20 20 41 52 30 2c 41 | 55 58 30 09 3b 0d 09 20 |.  AR0,A|UX0.;.. |
|000025e0| 6c 61 72 09 20 20 41 52 | 31 2c 41 55 58 31 09 3b |lar.  AR|1,AUX1.;|
|000025f0| 0d 09 20 72 65 74 09 09 | 09 3b 0d 3b 3d 3d 3d 3d |.. ret..|.;.;====|
|00002600| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002610| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002620| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002630| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002640| 0d 09 2e 6c 69 73 74 6f | 66 66 09 09 3b 0d 09 2e |...listo|ff..;...|
|00002650| 64 73 09 30 78 34 30 30 | 09 09 3b 4e 4f 54 45 3a |ds.0x400|..;NOTE:|
|00002660| 20 54 77 69 64 64 6c 65 | 73 20 61 72 65 20 72 65 | Twiddle|s are re|
|00002670| 6c 6f 63 61 74 65 64 20 | 74 6f 0d 09 2e 69 6e 63 |located |to...inc|
|00002680| 6c 75 64 65 20 22 64 73 | 6b 5f 74 77 69 64 2e 69 |lude "ds|k_twid.i|
|00002690| 6e 63 22 20 3b 20 20 20 | 20 20 20 30 78 34 30 30 |nc" ;   |   0x400|
|000026a0| 20 28 42 32 29 20 75 73 | 69 6e 67 20 43 4f 4e 46 | (B2) us|ing CONF|
|000026b0| 20 31 0d 09 2e 6c 69 73 | 74 6f 6e 0d 09 2e 65 6e | 1...lis|ton...en|
|000026c0| 64 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |d.......|........|
|000026d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002700| 00 00 01 00 00 00 01 1a | 00 00 00 1a 00 00 00 32 |........|.......2|
|00002710| 2d 2d 2d 2d 0d 09 6c 61 | 63 09 44 52 52 09 09 3b |----..la|c.DRR..;|
|00002720| 0d 09 62 69 74 09 54 45 | 4d 50 58 2c 31 35 09 3b |..bit.TE|MPX,15.;|
|00002730| 0c 68 6f 73 74 73 70 65 | 63 2e 61 73 6d 65 02 00 |.hostspe|c.asme..|
|00002740| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00002750| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00002760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002770| 00 00 ab 7b 67 cd 00 00 | 00 00 00 00 01 4c 69 6e |...{g...|.....Lin|
|00002780| 67 20 44 43 20 61 6e 64 | 20 4e 79 71 75 69 73 74 |g DC and| Nyquist|
|00002790| 21 0d 09 6e 65 67 09 09 | 09 3b 0d 4e 4f 5f 4e 56 |!..neg..|.;.NO_NV|
|000027a0| 52 54 20 09 09 09 3b 0d | 09 73 61 63 6c 09 2a 2b |RT ...;.|.sacl.*+|
|000027b0| 09 09 3b 3c 3c 3c 20 73 | 74 6f 72 65 20 44 52 52 |..;<<< s|tore DRR|
|000027c0| 2c 20 61 6e 64 20 70 6f | 69 6e 74 20 74 6f 20 6e |, and po|int to n|
|000027d0| 65 78 74 0d 09 6c 61 63 | 09 54 45 4d 50 58 09 09 |ext..lac|.TEMPX..|
|000027e0| 3b 0d 09 78 6f 72 6b 09 | 31 09 09 3b 0d 09 73 61 |;..xork.|1..;..sa|
|000027f0| 63 6c 09 54 45 4d 50 58 | 09 09 3b 0d 09 7a 61 6c |cl.TEMPX|..;..zal|
|00002800| 00 00 00 16 00 01 00 00 | 00 00 00 10 00 0c 00 01 |........|........|
|00002810| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00002820| 01 1a 00 00 00 1a 00 00 | 00 32 00 11 7e a8 06 9e |........|.2..~...|
|00002830| 00 00 00 1c 00 32 00 00 | 73 74 79 6c 00 00 00 0a |.....2..|styl....|
|00002840| 00 80 ff ff 00 00 00 00 | 00 11 da ac 00 00 00 00 |........|........|
|00002850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+